home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Tools & Apps / Networking & Communications / Serial NB Sample Driver / Test / ARDriver.a next >
Encoding:
Text File  |  1991-11-15  |  755 b   |  30 lines  |  [TEXT/MPS ]
  1. *************************************************************************************
  2. *                                                                                    *
  3. *        ARDriver.a - A/ROSE driver interface utilities.                                *
  4. *                                                                                    *
  5. *        Richard W. Mincher.        February 20, 1990.                                    *
  6. *                                                                                    *
  7. *        Copyright © 1990, Apple Computer, Inc.  All rights reserved.                *
  8. *                                                                                    *
  9. *************************************************************************************
  10.     
  11.             Case    Obj
  12.             Space    4
  13. Stuff        Proc
  14.             Export    SetMyTid:Code
  15.             Export    ARComplete:Code
  16.             Import    QueueID:Code
  17.             
  18. ARComplete    Move.L    4(SP),A0
  19.             Move.L    8(SP),A1
  20.             Move.L    12(SP),D0
  21.             JSR        (A1)
  22.             RTS
  23.  
  24. SetMyTid    Lea        QueueID,A0
  25.             Move.L    4(SP),D0
  26.             Move.W    D0,(A0)            ;    save the tid
  27.             Rts
  28.             EndProc
  29.             End
  30.